﻿<DebuggerDisplay("Terminal(?)")> _
Public Class Any
    Inherits Terminal

    Friend Sub New(ByVal index As Integer)
        MyBase.New(index)
    End Sub

    Public Overrides Function ToString() As String
        Return "?"
    End Function

End Class

<DebuggerDisplay("Terminal($)")> _
Public Class EndOfFile
    Inherits Terminal

    Friend Sub New(ByVal index As Integer)
        MyBase.New(index)
    End Sub

    Public Overrides Function ToString() As String
        Return "$"
    End Function

End Class

<DebuggerDisplay("Terminal(ERROR)")> _
Public Class [Error]
    Inherits Terminal

    Friend Sub New(ByVal index As Integer)
        MyBase.New(index)
    End Sub

    Public Overrides Function ToString() As String
        Return "ERROR"
    End Function
End Class